home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / icpr20c.arc / D.CMD < prev    next >
OS/2 REXX Batch file  |  1987-07-09  |  6KB  |  269 lines
  1. ; This file was created using MAKED from the package ICPR20
  2. ; designed by Wayne Wolf.  ICPR20 Copyright 1987
  3. ; You may modify this file in any way you wish but since the make
  4. ; files utilize the existing cmd files I discourage it.  If you have
  5. ; comments or useful modifications please contact me, either at
  6. ; unix: ww@ufcsg.ufl.edu  or bbs: PC-EXCHANGE at 404-977-6686.
  7. P1:
  8.   Clear
  9.   Message "                   PcPursuit Exchange Dialing Menu"
  10.   Message "██████████████████████████████████████████████████████████████████████████████"
  11.   Message " 1 --> 201 (Newark)"
  12.   Message " 2 --> 202 (Washington, D.C.)"
  13.   Message " 3 --> 206 (Seattle)"
  14.   Message " 4 --> 212 (New York)"
  15.   Message " 5 --> 213 (Los Angeles)"
  16.   Message " 6 --> 214 (Dallas)"
  17.   Message " 7 --> 215 (Philadelphia)"
  18.   Message " 8 --> 216 (Cleveland)"
  19.   Message " 9 --> 303 (Denver)"
  20.   Message "10 --> 305 (Miami)"
  21.   Message "11 --> 312 (Chicago)"
  22.   Message "12 --> 313 (Detroit)"
  23.   Message "13 --> 404 (Atlanta)"
  24.   Message "14 --> 408 (San Jose)"
  25.   Message "15 --> 414 (Milwaukee)"
  26. ;
  27.   Message " C --> Connect to the Net-Exchange     E --> Exit to Procomm level"
  28.   Message " Q --> Quit to DOS level"
  29.   Message " P --> View next page"
  30.   Locate 22,0
  31.   Message "Your Choice -->"
  32.   Goto Retry1
  33. ;
  34. P2:
  35.   Clear
  36.   Message "                   PcPursuit Exchange Dialing Menu"
  37.   Message "██████████████████████████████████████████████████████████████████████████████"
  38.   Message "16 --> 415 (San Francisco)"
  39.   Message "17 --> 503 (Portland)"
  40.   Message "18 --> 602 (Phoenix)"
  41.   Message "19 --> 612 (Minneapolis)"
  42.   Message "20 --> 617 (Boston)"
  43.   Message "21 --> 713 (Houston)"
  44.   Message "22 --> 801 (Salt Lake City)"
  45.   Message "23 --> 813 (Tampa)"
  46.   Message "24 --> 818 (Glendale)"
  47.   Message "25 --> 919 (Research Triangle Park)"
  48. ;
  49.   Message " C --> Connect to the Net-Exchange     E --> Exit to Procomm level"
  50.   Message " Q --> Quit to DOS level"
  51.   Message " P --> View next page"
  52.   Locate 22,0
  53.   Message "Your Choice -->"
  54.   Goto Retry2
  55. ;
  56. Retry1:
  57.   Locate 22,15
  58.   Get S1
  59.   Switch S1
  60.       Case "C"
  61.          Goto Pursuit
  62.       EndCase
  63.       Case "E"
  64.          Clear
  65.          Exit
  66.       EndCase
  67.       Case "Q"
  68.          Hangup
  69.          Quit
  70.       EndCase
  71.       Case "P"
  72.          Goto P2
  73.       EndCase
  74.        Case "1"
  75.           Assign S2 "201"
  76.           Assign S0 "Step201"
  77.        EndCase
  78.        Case "2"
  79.           Assign S2 "202"
  80.           Assign S0 "Step202"
  81.        EndCase
  82.        Case "3"
  83.           Assign S2 "206"
  84.           Assign S0 "Step206"
  85.        EndCase
  86.        Case "4"
  87.           Assign S2 "212"
  88.           Assign S0 "Step212"
  89.        EndCase
  90.        Case "5"
  91.           Assign S2 "213"
  92.           Assign S0 "Step213"
  93.        EndCase
  94.        Case "6"
  95.           Assign S2 "214"
  96.           Assign S0 "Step214"
  97.        EndCase
  98.        Case "7"
  99.           Assign S2 "215"
  100.           Assign S0 "Step215"
  101.        EndCase
  102.        Case "8"
  103.           Assign S2 "216"
  104.           Assign S0 "Step216"
  105.        EndCase
  106.        Case "9"
  107.           Assign S2 "303"
  108.           Assign S0 "Step303"
  109.        EndCase
  110.        Case "10"
  111.           Assign S2 "305"
  112.           Assign S0 "Step305"
  113.        EndCase
  114.        Case "11"
  115.           Assign S2 "312"
  116.           Assign S0 "Step312"
  117.        EndCase
  118.        Case "12"
  119.           Assign S2 "313"
  120.           Assign S0 "Step313"
  121.        EndCase
  122.        Case "13"
  123.           Assign S2 "404"
  124.           Assign S0 "Step404"
  125.        EndCase
  126.        Case "14"
  127.           Assign S2 "408"
  128.           Assign S0 "Step408"
  129.        EndCase
  130.        Case "15"
  131.           Assign S2 "414"
  132.           Assign S0 "Step414"
  133.        EndCase
  134.       Default
  135.          Message " "
  136.          Message "Invalid choice, please retype"
  137.          Locate 22,15
  138.          Message "          "
  139.          Goto Retry1
  140.       EndCase
  141.   EndSwitch
  142.   Goto Redial
  143. ;
  144. Retry2:
  145.   Locate 22,15
  146.   Get S1
  147.   Switch S1
  148.       Case "C"
  149.          Goto Pursuit
  150.       EndCase
  151.       Case "E"
  152.          Clear
  153.          Exit
  154.       EndCase
  155.       Case "Q"
  156.          Hangup
  157.          Quit
  158.       EndCase
  159.       Case "P"
  160.          Goto P1
  161.       EndCase
  162.        Case "16"
  163.           Assign S2 "415"
  164.           Assign S0 "Step415"
  165.        EndCase
  166.        Case "17"
  167.           Assign S2 "503"
  168.           Assign S0 "Step503"
  169.        EndCase
  170.        Case "18"
  171.           Assign S2 "602"
  172.           Assign S0 "Step602"
  173.        EndCase
  174.        Case "19"
  175.           Assign S2 "612"
  176.           Assign S0 "Step612"
  177.        EndCase
  178.        Case "20"
  179.           Assign S2 "617"
  180.           Assign S0 "Step617"
  181.        EndCase
  182.        Case "21"
  183.           Assign S2 "713"
  184.           Assign S0 "Step713"
  185.        EndCase
  186.        Case "22"
  187.           Assign S2 "801"
  188.           Assign S0 "Step801"
  189.        EndCase
  190.        Case "23"
  191.           Assign S2 "813"
  192.           Assign S0 "Step813"
  193.        EndCase
  194.        Case "24"
  195.           Assign S2 "818"
  196.           Assign S0 "Step818"
  197.        EndCase
  198.        Case "25"
  199.           Assign S2 "919"
  200.           Assign S0 "Step919"
  201.        EndCase
  202.       Default
  203.          Message " "
  204.          Message "Invalid choice, please retype"
  205.          Locate 22,15
  206.          Message "          "
  207.          Goto Retry2
  208.       EndCase
  209.   EndSwitch
  210.   Goto Redial
  211. ;
  212. Redial:
  213.   Clear
  214.   Message "Hit 'Q' or 'q' now to exit and return to main menu."
  215.   Wait "Q" 2
  216.   IF Waitfor
  217.      Tran "!"
  218.      Clear
  219.      Message "Action cancelled by user!"
  220.      Goto P1
  221.   ENDIF
  222. ;
  223.   Tran "C DIAL"
  224.   Tran S2
  225.   Tran "/12,username!"
  226.   Wait "PASSWORD = "
  227.   Tran "password!"
  228.   Wait "CONNECT" 5
  229.   IF NOT Waitfor
  230.      Goto Redial
  231.   ELSE
  232.      Alarm 2
  233.      Assign S7 "R"
  234.      Tran "!"
  235.      Wait "HELLO" 3
  236.      IF NOT Waitfor
  237.         Tran "ATZ I!"
  238.         Pause 2
  239.         Tran "!"
  240.      ENDIF
  241.      Assign S8 "I"
  242.      Pause 2
  243.      Execute S0
  244. ENDIF
  245. ;
  246. RdPur:
  247.   Clear
  248.   Message "Hit 'Q' or 'q' now to exit and return to main menu."
  249.   Wait "Q" 2
  250.   IF Waitfor
  251.      Tran "!"
  252.      Clear
  253.      Message "Action cancelled by user!"
  254.      Goto P1
  255.   ENDIF
  256. Pursuit:
  257.   Clear
  258.   Tran "C PURSUIT,"
  259.   Tran "username!"
  260.   Wait "PASSWORD = "
  261.   Tran "password!"
  262.   Wait "CONNECT" 5
  263.   IF NOT Waitfor
  264.      Goto RdPur
  265.   ELSE
  266.      Alarm 2
  267.   ENDIF
  268. Exit
  269.